COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	Internal Procedure Leland(reference integer attpt,decpt 
C00003 ENDMK
C⊗;
Internal Procedure Leland(reference integer attpt,decpt; 
	record_pointer(seg) funcptr);
begin "Leland"
integer i;
for i←1 step 1 until seg:nsegs[funcptr] do begin
    if seg:times[funcptr]=25 then attpt←i;
    if seg:times[funcptr]=75 then begin
	decpt←i;
	DONE;
	end;
    end;
end;